From: Fabián Ezequiel Gallina <fgallina@cuca>
Date: Thu, 17 May 2012 03:03:34 +0000 (-0300)
Subject: `python-check' now can have named buffers on its own depending the command launched.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~2326^2~2169
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=bbd27e0710f2885448949880e5b3e48c6a7b97a5;p=emacs.git

`python-check' now can have named buffers on its own depending the command launched.

New vars:
  + python-check-buffer-name
---

diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el
index 5406d74f69e..2f886a5b803 100644
--- a/lisp/progmodes/python.el
+++ b/lisp/progmodes/python.el
@@ -2149,6 +2149,12 @@ The skeleton will be bound to python-skeleton-NAME."
   :type 'string
   :group 'python)
 
+(defcustom python-check-buffer-name
+  "*Python check: %s*"
+  "Buffer name used for check commands."
+  :type 'string
+  :group 'python)
+
 (defvar python-check-custom-command nil
   "Internal use.")
 
@@ -2170,7 +2176,9 @@ Runs COMMAND, a shell command, as if by `compile'.  See
   (save-some-buffers (not compilation-ask-about-save) nil)
   (let ((process-environment (python-shell-calculate-process-environment))
         (exec-path (python-shell-calculate-exec-path)))
-    (compilation-start command)))
+    (compilation-start command nil
+                       (lambda (mode-name)
+                         (format python-check-buffer-name command)))))
 
 
 ;;; Eldoc